A Million Times Begging/A Million Times Begging - Disc 2.iso/pc/data/game2.dir/00047.ls

Text File | 1998-05-14 | 5.3 KB | 280 lines

on pmov spn
  global box1, box2, box3, box4, box5, box6, box7, box8, box9, dbox
  if box1 = 0 then
    case spn of
      29:
        pmovr(box2)
        set dbox to box1
        set box1 to box2
        set box2 to dbox
        exit
      30:
        pmovr(box2)
        pmovr(box3)
        set dbox to box1
        set box1 to box2
        set box2 to box3
        set box3 to dbox
        exit
      31:
        pmovd(box4)
        set dbox to box1
        set box1 to box4
        set box4 to dbox
        exit
      34:
        pmovd(box4)
        pmovd(box7)
        set dbox to box1
        set box1 to box4
        set box4 to box7
        set box7 to dbox
        exit
    end case
  end if
  if box2 = 0 then
    case spn of
      28:
        pmovl(box1)
        set dbox to box2
        set box2 to box1
        set box1 to dbox
        exit
      30:
        pmovr(box3)
        set dbox to box2
        set box2 to box3
        set box3 to dbox
        exit
      32:
        pmovd(box5)
        set dbox to box2
        set box2 to box5
        set box5 to dbox
        exit
      35:
        pmovd(box5)
        pmovd(box8)
        set dbox to box2
        set box2 to box5
        set box5 to box8
        set box8 to dbox
        exit
    end case
  end if
  if box3 = 0 then
    case spn of
      28:
        pmovl(box2)
        pmovl(box1)
        set dbox to box3
        set box3 to box2
        set box2 to box1
        set box1 to dbox
        exit
      29:
        pmovl(box2)
        set dbox to box3
        set box3 to box2
        set box2 to dbox
        exit
      33:
        pmovd(box6)
        set dbox to box3
        set box3 to box6
        set box6 to dbox
        exit
      36:
        pmovd(box6)
        pmovd(box9)
        set dbox to box3
        set box3 to box6
        set box6 to box9
        set box9 to dbox
        exit
    end case
  end if
  if box4 = 0 then
    case spn of
      28:
        pmovu(box1)
        set dbox to box4
        set box4 to box1
        set box1 to dbox
        exit
      32:
        pmovr(box5)
        set dbox to box4
        set box4 to box5
        set box5 to dbox
        exit
      33:
        pmovr(box5)
        pmovr(box6)
        set dbox to box4
        set box4 to box5
        set box5 to box6
        set box6 to dbox
        exit
      34:
        pmovd(box7)
        set dbox to box4
        set box4 to box7
        set box7 to dbox
        exit
    end case
  end if
  if box5 = 0 then
    case spn of
      29:
        pmovu(box2)
        set dbox to box5
        set box5 to box2
        set box2 to dbox
        exit
      31:
        pmovl(box4)
        set dbox to box5
        set box5 to box4
        set box4 to dbox
        exit
      33:
        pmovr(box6)
        set dbox to box5
        set box5 to box6
        set box6 to dbox
        exit
      35:
        pmovd(box8)
        set dbox to box5
        set box5 to box8
        set box8 to dbox
        exit
    end case
  end if
  if box6 = 0 then
    case spn of
      30:
        pmovu(box3)
        set dbox to box6
        set box6 to box3
        set box3 to dbox
        exit
      31:
        pmovl(box5)
        pmovl(box4)
        set dbox to box6
        set box6 to box5
        set box5 to box4
        set box4 to dbox
        exit
      32:
        pmovl(box5)
        set dbox to box6
        set box6 to box5
        set box5 to dbox
        exit
      36:
        pmovd(box9)
        set dbox to box6
        set box6 to box9
        set box9 to dbox
        exit
    end case
  end if
  if box7 = 0 then
    case spn of
      28:
        pmovu(box4)
        pmovu(box1)
        set dbox to box7
        set box7 to box4
        set box4 to box1
        set box1 to dbox
        exit
      31:
        pmovu(box4)
        set dbox to box7
        set box7 to box4
        set box4 to dbox
        exit
      35:
        pmovr(box8)
        set dbox to box7
        set box7 to box8
        set box8 to dbox
        exit
      36:
        pmovr(box8)
        pmovr(box9)
        set dbox to box7
        set box7 to box8
        set box8 to box9
        set box9 to dbox
        exit
    end case
  end if
  if box8 = 0 then
    case spn of
      29:
        pmovu(box5)
        pmovu(box2)
        set dbox to box8
        set box8 to box5
        set box5 to box2
        set box2 to dbox
        exit
      32:
        pmovu(box5)
        set dbox to box8
        set box8 to box5
        set box5 to dbox
        exit
      34:
        pmovl(box7)
        set dbox to box8
        set box8 to box7
        set box7 to dbox
        exit
      36:
        pmovr(box9)
        set dbox to box8
        set box8 to box9
        set box9 to dbox
        exit
    end case
  end if
  if box9 = 0 then
    case spn of
      30:
        pmovu(box6)
        pmovu(box3)
        set dbox to box9
        set box9 to box6
        set box6 to box3
        set box3 to dbox
        exit
      33:
        pmovu(box6)
        set dbox to box9
        set box9 to box6
        set box6 to dbox
        exit
      34:
        pmovl(box8)
        pmovl(box7)
        set dbox to box9
        set box9 to box8
        set box8 to box7
        set box7 to dbox
        exit
      35:
        pmovl(box8)
        set dbox to box9
        set box9 to box8
        set box8 to dbox
        exit
    end case
  end if
end